package Class::Value::DefaultNotify;

use strict;
use warnings;


our $VERSION = '0.04';


use base 'Class::Value::Notify';


sub notify_value_not_wellformed {
    my ($self, $ref, $value) = @_;
    throw Class::Value::Exception::NotWellFormedValue(
        ref   => $ref,
        value => $value,
    );
}


sub notify_value_invalid {
    my ($self, $ref, $value) = @_;
    throw Class::Value::Exception::InvalidValue(
        ref   => $ref,
        value => $value,
    );
}


sub notify_value_normalized {
    my ($self, $ref, $value, $normalized) = @_;
    # do nothing; normalization is ok here
}


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

{% p.package %} - the Value Object design pattern

=head1 SYNOPSIS

    {% p.package %}->new;

=head1 DESCRIPTION

None yet. This is an early release; fully functional, but undocumented. The
next release will have more documentation.

{% p.write_inheritance %}

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% PROCESS standard_pod %}

=cut

